UC知道如何解决"模拟内存分配问题"
来源：百度知道 编辑：UC知道 时间：2024/07/03 03:00:19
内存是计算机重要的资源之一，程序运行的过程中必须对内存进行分配。经典的内存分配过程是这样进行的：
内存以内存单元为基本单位，每个内存单元用一个固定的整数作为标识，称为地址。地址从0开始连续排列，地址相邻的内存单元被认为是逻辑上连续的。我们把从地址i开始的s个连续的内存单元称为首地址为i长度为s的地址片。
运行过程中有若干进程需要占用内存，对于每个进程有一个申请时刻T，需要内存单元数M及运行时间P。在运行时间P内（即T时刻开始，T+P时刻结束），这M个被占用的内存单元不能再被其他进程使用。
假设在T时刻有一个进程申请M个单元，且运行时间为P，则：
若T时刻内存中存在长度为M的空闲地址片，则系统将这M个空闲单元分配给该进程。若存在多个长度为M个空闲地址片，则系统将首地址最小的那个空闲地址片分配给该进程。
如果T时刻不存在长度为M的空闲地址片，则该进程被放入一个等待队列。对于处于等待队列队头的进程，只要在任一时刻，存在长度为M的空闲地址片，系统马上将该进程取出队列，并为它分配内存单元。注意，在进行内存分配处理过程中，处于等待队列队头的进程的处理优先级最高，队列中的其它进程不能先于队头进程被处理。
现在给出一系列描述进程的数据，请编写一程序模拟系统分配内存的过程。
输入
第一行是一个数N，表示总内存单元数（即地址范围从0到N-1）
从第二行开始每行描述一个进程的三个整数T、M、P（M<=N）。
数据已按T从小到大排序。
最后一行用三个0表示结束。
输入文件最多10000行，且所有数据都小于109。
输入文件中同一行相邻两项之间用一个或多个空格隔开。
输出
包括2行。
第一行是全部进程都运行完毕的时刻。
第二行是被放入过等待队列的进程总数。
样例
TJU1201
program tju1201;
const
maxprogs=10001;
var
heap:array[0..maxprogs]of record fin:longint;pchain:word;end;
chain:array[0..maxprogs]of record left,right:longint;pheap,pre,next:word;end;
wait:array[1..maxprogs]of record mem,time:longint;end;
h,n,a,b,c,f,r,now,p:longint;
function where(mem:longint):word;
begin
where:=0;
while (chain[where].next>0) and
(chain[chain[where].next].left-chain[where].right<mem) do
where:=chain[where].next;
end;
procedure ins(where,fintime,mem:longint);
var
p,q:word;
begin
inc(n);
with chain[n] do begin
left:=chain[where].right;right:=left+mem;
pre:=where;next:=chain[where].next;
end;
chain[where].next:=n;chain[chain[n].next].pre:=n;
inc(h);p:=h;q:=p shr 1;
while (p>1) and (fintime<heap[q].fin) do begin
heap[p]:=heap[